home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_91-10_1991_-_de_Side_B.d64 / sound bibliothek (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  11KB  |  378 lines
  1. 0 rem  *******************************
  2. 1 rem  **                           **
  3. 2 rem  **   - sound bibliothek -    **
  4. 3 rem  **                           **
  5. 4 rem  **     written 1991  by      **
  6. 5 rem  **                           **
  7. 6 rem  **    michael ruettinger     **
  8. 7 rem  ***                         ***
  9. 8 rem  **** bitte lesen sie auch  ****
  10. 9 rem  *** am ende dieses listings ***
  11. 10 rem **                           **
  12. 11 rem *******************************
  13. 12 print"[147]":poke775,167:poke788,49:poke808,237
  14. 20 poke53281,0:poke53280,0:poke53272,23
  15. 30 print"[147]       =>[158] [211][207][213][206][196] [194][201][194][204][201][207][212][200][197][203] <=":print"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  16. 31 print"[155]written 1991 by [210][213][197][212][212][201][206][199][197][210] [208][210][207][196][213][195][212][201][207][206][211]"
  17. 32 print"[159][211]ound [194]ibliothek installiert."
  18. 33 print"[211]ie koennen jetzt jeden beliebigen "
  19. 34 print"[211]ound, den [211]ie wuenschen, aufrufen."
  20. 36 print"goto [158][216][216][216][145][145][145][144]":poke631,5:poke632,29:poke633,29:poke634,29:poke635,29
  21. 37 poke636,29:poke198,6:end
  22. 50 s=54272:pokes+24,15
  23. 51 fortt=0to13:pokes+tt,0:next:return
  24. 70 forj=1tom:next:return
  25. 89 rem
  26. 90 rem   ***************************
  27. 91 rem
  28. 92 rem   >>>  hier geht's los!  <<<
  29. 93 rem
  30. 94 rem   ***************************
  31. 98 rem
  32. 99 rem   *** piep ***
  33. 100 rem
  34. 101 gosub50:pokes+5,10:pokes+6,10:pokes+3,8:pokes,64:pokes+1,156:pokes+22,50
  35. 102 pokes+23,0:pokes+24,15:pokes+4,17:m=100:gosub70:pokes+4,100:end
  36. 107 rem
  37. 108 rem  *** oboe ***
  38. 109 rem
  39. 110 gosub50:pokes+5,135:pokes+6,168:pokes+2,250:pokes,29:pokes+1,76:pokes+23,0:pokes+24,15
  40. 111 pokes+4,65:m=500:gosub70:pokes+4,64:end
  41. 117 rem
  42. 118 rem  *** fagott ***
  43. 119 rem
  44. 120 gosub50:pokes+5,135:pokes+6,168:pokes+2,250:pokes,196:pokes+1,9:pokes+23,0:pokes+24,15
  45. 121 pokes+4,65:m=750:gosub70:pokes+4,64:end
  46. 125 rem
  47. 126 rem   *** vibration ***
  48. 127 rem
  49. 130 gosub50:pokes+5,128:pokes+6,250:pokes,144:pokes+1,1:pokes+23,0:pokes+24,15
  50. 131 pokes+4,49:m=1000:gosub70:pokes+4,48:end
  51. 137 rem
  52. 138 rem  *** gitarrensaite ***
  53. 139 rem
  54. 140 gosub50:pokes+5,8:pokes+6,8:pokes,76:pokes+1,29:pokes+22,50:pokes+23,241:pokes+24,111
  55. 141 pokes+4,33:m=30:gosub70:pokes+4,32:end
  56. 147 rem
  57. 148 rem  *** aufzugklingel ***
  58. 149 rem
  59. 150 gosub50:pokes+6,252:pokes+2,252:pokes+3,7:pokes,48:pokes+1,117:pokes+24,15
  60. 151 pokes+4,65:m=100:gosub70:pokes+4,64:end
  61. 157 rem
  62. 158 rem  *** stahlfeder ***
  63. 159 rem
  64. 160 gosub50:pokes+5,8:pokes+6,9:pokes,238:pokes+1,2:pokes+23,0:pokes+24,15
  65. 161 pokes+4,33:m=35:gosub70:pokes+4,32:end
  66. 167 rem
  67. 168 rem  *** warnton ***
  68. 169 rem
  69. 170 gosub50:pokes+6,250:pokes,52:pokes+1,8:pokes+23,0:pokes+24,15
  70. 171 pokes+4,81:m=2000:gosub70:pokes+4,80:end
  71. 177 rem
  72. 178 rem  *** schuss 1 ***
  73. 179 rem
  74. 180 gosub50:pokes+5,8:pokes+6,10:pokes,16:pokes+1,39:pokes+23,0
  75. 181 pokes+24,15:pokes+4,129:m=50:gosub70:pokes+4,128:end
  76. 187 rem
  77. 188 rem  *** aufschrammen ***
  78. 189 rem
  79. 190 gosub50:pokes+6,240:pokes,100:pokes+23,0:pokes+24,15
  80. 191 pokes+4,129:m=2000:gosub70:pokes+4,128:end
  81. 197 rem
  82. 198 rem  *** duesen ***
  83. 200 gosub50:pokes+6,253:pokes,184:pokes+1,11:pokes+22,50:pokes+23,241:pokes+24,31
  84. 201 pokes+4,129:m=3000:gosub70:pokes+4,128:end
  85. 207 rem
  86. 208 rem  *** fliegende rakete ***
  87. 209 rem
  88. 210 gosub50:pokes+6,255:pokes,232:pokes+1,3:pokes+22,10:pokes+23,241:pokes+24,31
  89. 211 pokes+4,129:m=3000:gosub70:pokes+4,128:end
  90. 217 rem
  91. 218 rem  *** telefon ***
  92. 219 rem
  93. 220 a=0:d=10:su=0:r=10:c=16:p=0:f=16000:g=1.33:n=2:m=24:goto50000
  94. 227 rem
  95. 228 rem  *** laserkanone ***
  96. 229 rem
  97. 230 a=0:d=0:su=15:r=0:c=64:p=1000:f=30000:g=.85:n=10:m=3:goto50000
  98. 237 rem
  99. 238 rem  *** raumschiffstart ***
  100. 239 rem
  101. 240 a=0:d=0:su=15:r=15:c=128:f=500:p=0:g=1.004:n=1000:m=1:goto50000
  102. 247 rem
  103. 248 rem  *** turbinen ***
  104. 249 rem
  105. 250 a=0:d=0:su=15:r=15:c=32:p=2044:f=20000:g=1.001:n=460:m=1:goto50000
  106. 257 rem
  107. 258 rem  *** flugabwehr ***
  108. 259 rem
  109. 260 a=0:d=5:su=2:r=9:c=128:p=0:f=20000:g=1:n=2:m=30:goto50000
  110. 267 rem
  111. 268 rem  *** mg / helikopter ***
  112. 269 rem
  113. 270 a=0:d=5:su=2:r=9:c=128:p=0:f=12000:g=.7:n=3:m=30:goto50000
  114. 277 rem
  115. 278 rem  *** voegel ***
  116. 279 rem
  117. 280 a=0:d=8:su=0:r=8:c=16:p=.:f=40000:g=500:n=8:m=10:a3=.:d3=8:s3=.:r3=.:c3=.
  118. 281 p3=.:f3=.:q=28:goto51000
  119. 287 rem
  120. 288 rem  *** etw. hinlegen ***
  121. 289 rem
  122. 290 a=.:d=7:su=.:r=7:c=16:p=.:f=4000:g=1000:n=4:m=1:a3=.:d3=8:s3=.:r3=0
  123. 291 c3=.:p3=.:f3=.:q=28:goto51000
  124. 297 rem
  125. 298 rem  *** negativ - ton ***
  126. 300 a=.:d=8:su=.:r=9:c=32:p=.:f=750:g=1000:n=7:m=1:a3=.:d3=10:s3=.:r3=.
  127. 301 c3=.:f3=.:p3=.:q=28:goto51000
  128. 307 rem
  129. 308 rem  *** raumschiffkanone ***
  130. 309 rem
  131. 310 a=.:d=9.:su=.:r=11:c=128:p=.:f=5000:g=200:n=20:m=15:a3=.:d3=9:s3=.:r3=.
  132. 311 c3=.:p3=.:f3=.:q=28:goto51000
  133. 317 rem
  134. 318 rem  *** martinshorn ***
  135. 319 rem
  136. 320 a=.:d=.:su=15:r=8:c=64:p=1000:f=7000:g=720:n=300:m=1:a3=.:d3=.:s3=.
  137. 321 r3=.:c3=64:p3=2048:f3=15:q=27:goto51000
  138. 327 rem
  139. 328 rem  *** meeresbrandung ***
  140. 330 a=10:d=13:su=.:r=.:c=128:p=2048:f=32000:g=400:n=300:m=1:a3=.:d3=.:
  141. 331 s3=.:r3=.:c3=16:p3=.:f3=30:q=27:goto51000
  142. 337 rem
  143. 338 rem  *** spielautomat ***
  144. 339 rem
  145. 340 a=.:d=.:su=15:r=.:c=64:p=2048:f=10000:g=200:n=400:m=1:a3=.:d3=.:s3=.:r3=.
  146. 341 c3=128:p3=.:f3=20:q=27:goto51000
  147. 347 rem
  148. 348 rem  *** laserscanner ***
  149. 349 rem
  150. 350 a=9:d=10:su=.:r=.:c=32:p=.:f=50000:g=2000:n=40:m=10:a3=.:d3=.:s3=.:r3=.
  151. 351 c3=128:p3=.:f3=.:q=27:goto51000
  152. 357 rem
  153. 358 rem  *** dampf ablassen ***
  154. 359 rem
  155. 360 gosub50:pokes+6,252:pokes+2,252:pokes+3,7:pokes,48:pokes+1,117:pokes+24,15
  156. 361 pokes+4,129:m=100:gosub70:pokes+4,128:end
  157. 367 rem
  158. 368 rem  *** zerstoerung ***
  159. 369 rem
  160. 370 gosub50:pokes+6,12:pokes+1,3:pokes+4,129:pokes+4,128:end
  161. 377 rem
  162. 378 rem  *** schuss 2 ***
  163. 379 rem
  164. 380 gosub50:pokes+6,9:pokes+1,39:pokes+4,129:pokes+4,128:end
  165. 387 rem
  166. 388 rem  *** abschwellende wellen ***
  167. 389 rem
  168. 390 gosub50:pokes+13,9:pokes+11,17:pokes+11,16:fortt=100to60step-10
  169. 391 fort=tttott-60step-3:pokes+8,t:next:next:end
  170. 397 rem
  171. 398 rem  *** anklicken ***
  172. 399 rem
  173. 400 gosub50:pokes+13,8:pokes+11,17:pokes+11,16:fort=150to0step-3:pokes+8,t:next:end
  174. 407 rem
  175. 408 rem  *** heller zupfton ***
  176. 409 rem
  177. 410 gosub50:pokes+6,8:pokes+1,32:pokes+4,33:pokes+4,32:end
  178. 417 rem
  179. 418 rem  *** dunkler zupfton ***
  180. 419 rem
  181. 420 gosub50:pokes+6,8:pokes+1,15:pokes+4,33:pokes+4,32:end
  182. 427 rem
  183. 428 rem  *** brummton ***
  184. 429 rem
  185. 430 gosub50:pokes+6,10:pokes+13,10:pokes+1,11:pokes+8,3:pokes+4,21:pokes+11,33
  186. 431 pokes+4,20:pokes+11,32:end
  187. 437 rem
  188. 438 rem  *** futur. raketenstart ***
  189. 439 rem
  190. 440 gosub50:pokes+13,10:pokes+11,129:pokes+11,128:fort=1to99step.4:pokes+8,t:next:end
  191. 447 rem
  192. 448 rem  *** spirale ***
  193. 449 rem
  194. 450 gosub50:pokes+6,10:pokes+4,33:pokes+4,32:fort=60to0step-1:pokes+1,60+t:pokes+1,60-t
  195. 451 next:pokes+1,0:end
  196. 457 rem
  197. 458 rem  *** zahnarztbohrer ***
  198. 459 rem
  199. 460 gosub50:pokes+6,10:pokes+4,33:pokes+4,32:fort=0to60:pokes+1,60+t:pokes+1,60-t:next:end
  200. 467 rem
  201. 468 rem  *** motor (einschalten) ***
  202. 469 rem
  203. 470 gosub50:pokes+12,0:pokes+13,250:pokes+8,2:pokes+11,33:end
  204. 472 fort=0to6:pokes+t,0:next:pokes+6,92:pokes+1,4:pokes+4,33:pokes+4,32:end
  205. 474 gosub50:end
  206. 477 rem
  207. 478 rem  *** puppenstimme ***
  208. 479 rem
  209. 480 gosub50:pokes+24,15:pokes+3,15:pokes+2,15:pokes+5,0:pokes+6,240:pokes+4,65
  210. 481 fori=250to0step-2:pokes+1,40:pokes,i:next:fori=150to0step-4:pokes+1,40:pokes,i:next
  211. 482 pokes+4,0:end
  212. 487 rem
  213. 488 rem  *** propeller (ein) ***
  214. 489 rem
  215. 490 gosub50:restore:fori=0to24:reada:pokes+i,a:next:pokes+4,65:pokes+11,65:pokes+18,65:end
  216. 492 gosub50:pokes+24,0:end
  217. 497 rem
  218. 498 rem  *** bildschrimrauschen ***
  219. 499 rem
  220. 500 gosub50:restore:reada:fori=1to24:reada:pokes+i,a:next:pokes+4,0:pokes+65,77:pokes+18,65:end
  221. 502 gosub50:pokes+24,0:end
  222. 507 rem
  223. 508 rem  *** explosion ***
  224. 509 rem
  225. 510 s=54272:fori=1to24:pokes+i,0:next
  226. 511 gosub50:pokes+24,2:pokes+6,255:pokes+4,129:pokes+13,255:pokes+11,129:pokes+1,0:pokes+5,0
  227. 512 pokes+24,15:pokes+1,1:pokes+5,11:pokes+6,0:m=150:gosub70:pokes+12,9:pokes+13,0
  228. 513 pokes+19,10:pokes+18,129:end
  229. 517 rem
  230. 518 rem  *** explosion und hall ***
  231. 519 rem
  232. 520 s=54272:fori=1to24:pokes+i,0:next
  233. 521 pokes+24,2:pokes+6,255:pokes+4,129:pokes+13,255:pokes+11,129:pokes+1,0:pokes+5,0
  234. 522 pokes+24,15:pokes+1,1:pokes+5,11:pokes+6,0:m=150:gosub70:pokes+12,9:pokes+13,0:pokes+19,10
  235. 523 pokes+18,129:m=80:gosub70:a=30:fori=1to16:m=40:gosub70:pokes+15,5:pokes+8,a
  236. 524 m=80:gosub70:pokes+15,3:pokes+8,a+20:a=a-1:nexti:pokes+4,0:pokes+11,0:pokes+18,0
  237. 525 m=300:gosub70:end
  238. 527 rem
  239. 528 rem  *** langsames mg ***
  240. 529 rem
  241. 530 s=54272:fori=1to24:pokes+i,0:next:pokes+24,15
  242. 531 pokes+6,240:pokes,130:pokes+5,110:pokes+23,240:pokes+4,33:end
  243. 532 gosub50:pokes+24,0:end
  244. 537 rem
  245. 538 rem  *** triebwerke warmlaufen ***
  246. 539 rem
  247. 540 s=54272:fori=1to23:pokes+i,0:next:pokes+24,15
  248. 541 pokes+6,240:pokes,180:pokes+5,8:pokes+23,240:pokes+4,129:end
  249. 542 gosub50:pokes+24,0:end
  250. 546 m=80:gosub70:pokes+15,3:pokes+8,a+20:a=a-1:nexti:pokes+4,0:pokes+11,0:pokes+18,0
  251. 547 rem
  252. 548 rem  *** flugzeug - mg ***
  253. 549 rem
  254. 550 s=54272:fori=0to23:pokes+i,0:next:pokes+24,15
  255. 551 pokes+6,180:pokes,180:pokes+5,8:pokes+23,240:pokes+4,33:end
  256. 552 gosub50:pokes+24,0:end
  257. 557 rem
  258. 558 rem  *** flipper ***
  259. 559 rem
  260. 560 gosub50:pokes+24,15:pokes+6,240:pokes+23,240:fori=65535to4000step-3000
  261. 561 pokes+1,i/256:pokes,i-256*int(i/256):pokes+4,33:next:pokes+4,0:pokes+11,0:end
  262. 567 rem
  263. 568 rem  *** troete 1 ***
  264. 569 rem
  265. 570 s=54272:fori=0to24:pokes+i,0:next:fori=1to3:pokes+24,15:pokes+6,240:pokes,98
  266. 571 pokes+1,10:pokes+4,33:m=250:gosub70:pokes+4,0:next:pokes+4,0:end
  267. 577 rem
  268. 578 rem  *** troete 2 ***
  269. 579 rem
  270. 580 gosub50:fori=1to3:pokes+24,10:pokes+6,240:pokes,27:pokes+1,4:pokes+4,33:m=370:gosub70
  271. 581 pokes+4,0:next:pokes+4,0:end
  272. 587 rem
  273. 588 rem  *** fallendes objekt 1 ***
  274. 589 rem
  275. 590 gosub50:pokes+24,15:pokes+6,240:fori=80to10step-1:pokes+1,i:pokes+4,17
  276. 591 m=10:gosub70:next:pokes+24,0:end
  277. 597 rem
  278. 598 rem  *** fallendes objekt 2 ***
  279. 599 rem
  280. 600 gosub50:m=15:fori=60to48step-2:pokes+24,m:pokes+6,240:pokes+1,i:pokes+4,17
  281. 601 forj=1to100:next:m=m-1:next:pokes+24,0:end
  282. 607 rem
  283. 608 rem  *** alarmanlege ***
  284. 609 rem
  285. 610 gosub50:fori=1to5:l=10:forj=70to100step2:pokes+24,l:pokes+6,240:pokes+1,j
  286. 611 pokes+4,33:ifl<15thenl=l+1
  287. 612 next:next:pokes+24,0:end
  288. 617 rem
  289. 618 rem  *** alarm ***
  290. 619 rem
  291. 620 s=54272:u=0
  292. 621 fori=1to24:pokes+i,0:next:pokes+7,9:pokes+10,3:pokes+13,240:pokes+22,30:pokes+23,243
  293. 622 pokes+24,31:pokes+11,65:pokes+1,140:pokes+2,2:pokes+3,2:pokes+5,5:pokes+6,255:pokes+4,65
  294. 623 fori=30to120step6:pokes+1,i:next:u=u+1:ifu>8thenpokes+24,0:end
  295. 624 fori=120to20step-6:pokes+1,i:next:goto623
  296. 627 rem
  297. 628 rem  *** im u.f.o. ***
  298. 629 rem
  299. 630 s=54272:fori=0to24:pokes+i,0:next:pokes+24,15:pokes+5,21:pokes+12,21:pokes+6,0
  300. 631 pokes+13,0:fori=50to10step-10:forj=255to0step-10:pokes+4,0
  301. 632 pokes+11,0:pokes+1,1:pokes,j:pokes+7,2*i:pokes+8,j:pokes+4,17:pokes+11,33:next:next:end
  302. 637 rem
  303. 638 rem  *** demo 1 (590+520) ***
  304. 639 rem
  305. 640 gosub50:pokes+24,15:pokes+6,240:fori=80to10step-1:pokes+1,i:pokes+4,17
  306. 641 m=10:gosub70:next:pokes+24,0
  307. 642 gosub50
  308. 643 pokes+24,2:pokes+6,255:pokes+4,129:pokes+13,255:pokes+11,129:pokes+1,0:pokes+5,0
  309. 644 pokes+24,15:pokes+1,1:pokes+5,11:pokes+6,0:m=150:gosub70:pokes+12,9:pokes+13,0:pokes+19,10
  310. 645 pokes+18,129:m=80:gosub70:a=30:fori=1to16:m=40:gosub70:pokes+15,5:pokes+8,a
  311. 647 m=300:gosub70:end:rem                   rem
  312. 648 rem  *** demo 2 (540+240) ***
  313. 649 rem
  314. 650 s=54272:fori=1to23:pokes+i,0:next:pokes+24,15
  315. 651 pokes+6,240:pokes,180:pokes+5,8:pokes+23,240:pokes+4,129:m=3500:gosub70
  316. 652 a=0:d=0:su=15:r=15:c=128:f=500:p=0:g=1.004:n=1000:m=1:goto50000
  317. 657 rem
  318. 658 rem  *** demo 3 (600+510) ***
  319. 659 rem
  320. 660 gosub50:m=15:fori=60to48step-2:pokes+24,m:pokes+6,240:pokes+1,i:pokes+4,17
  321. 661 forj=1to100:next:m=m-1:next
  322. 662 fori=1to24:pokes+i,0:next
  323. 663 gosub50:pokes+24,2:pokes+6,255:pokes+4,129:pokes+13,255:pokes+11,129:pokes+1,0:pokes+5,0
  324. 664 pokes+24,15:pokes+1,1:pokes+5,11:pokes+6,0:m=150:gosub70:pokes+12,9:pokes+13,0
  325. 665 pokes+19,10:pokes+18,129:end
  326. 49990 rem
  327. 49991 rem ***************************
  328. 49992 rem
  329. 49993 rem       sound routine 1
  330. 49994 rem
  331. 49995 rem ***************************
  332. 49996 rem
  333. 50000 gosub50:pokes+5,16*a+d:pokes+6,16*su+r:pokes+2,pand255:pokes+3,p/256
  334. 50002 pokes+23,0:pokes+24,15:fori=1tom:f1=f:pokes+4,cor1
  335. 50004 forj=1ton:pokes,f1and255:pokes+1,f1/256:f1=f1*g:next
  336. 50006 pokes+4,c:next:end
  337. 50990 rem
  338. 50991 rem ***************************
  339. 50992 rem
  340. 50993 rem       sound routine 2
  341. 50994 rem
  342. 50995 rem ***************************
  343. 50996 rem
  344. 51000 gosub50:pokes+5,16*a+d:pokes+6,16*su+r:pokes+2,pand255:pokes+3,p/256
  345. 51002 pokes+23,0:pokes+24,143:pokes+15,f3/256:pokes+14,f3-256*peek(s+15)
  346. 51004 pokes+16,p3and255:pokes+17,p3/256:pokes+19,16*a3+d3:pokes+20,16*s3+r3
  347. 51006 q=q+s:f=f/256:fori=1tom:pokes+4,cor1:pokes+18,c3or1
  348. 51008 forj=1ton:pokes+1,f*(peek(q)/g+1):next
  349. 51010 pokes+4,c:pokes+18,c3:next:end
  350. 51990 rem
  351. 51991 rem ***************************
  352. 51992 rem
  353. 51993 rem   s.i.d. belegungstabelle
  354. 51994 rem
  355. 51995 rem ***************************
  356. 51996 rem
  357. 52000 data9,2,,3,,,240,12,2,,4,,,192,16,2,,6,,,64,,30,243,31
  358. 53000 rem
  359. 53001 rem *****************************
  360. 53002 rem *                           *
  361. 53003 rem *   unser softwareangebot   *
  362. 53004 rem *     koennen sie hier      *
  363. 53005 rem *         erfahren:         *
  364. 53006 rem *                           *
  365. 53007 rem *****************************
  366. 53008 rem *                           *
  367. 53009 rem *  ruettinger productions   *
  368. 53010 rem *    michael ruettinger     *
  369. 53011 rem *    zerzabelshofstr.93     *
  370. 53012 rem *    8500  nuernberg 30     *
  371. 53013 rem *    tel: 0911 / 408442     *
  372. 53014 rem *                           *
  373. 53015 rem *****************************
  374. 53016 rem *                           *
  375. 53017 rem *    katalog kostenlos !    *
  376. 53018 rem *                           *
  377. 53019 rem *****************************
  378.